home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Addins / C-Script.exe / Sysfiles / Help / chelp.mrc < prev    next >
Encoding:
Text File  |  1998-05-13  |  1.9 KB  |  50 lines
  1. alias chelprun {
  2.   wincheck %chelpwin -pl19 +bnx %chelpwin $center(634,380,%chelpwin) 634 380 %chelpwin comic sans ms 12
  3.   .timer 1 1 window -b %chelpwin
  4.   chlpsetup
  5. }
  6. alias chlpsetup {
  7.   set %chlptpcs $read -s $+ topics sysfiles\help\lines.mrc
  8.   :loop1
  9.   if (%chlptpcs <= 0) { goto done1 }
  10.   iline -l %chelpwin 1 $read -l $+ %chlptpcs sysfiles\help\topics.mrc
  11.   dec %chlptpcs
  12.   goto loop1
  13.   :done1
  14.   drawfill %chelpwin 0 0 0 0
  15.   drawpic %chelpwin 75 0 sysfiles/help/help.bmp
  16.   drawtext %chelpwin 2 arial 12 1 365 Copyright ⌐ 1998 C-Team
  17.   set %win.x $window(%chelpwin).x | set %win.y $window(%chelpwin).y
  18.   wincheck @Topic +bnx @Topic $calc(%win.x) $calc(%win.y + 104) 425 263 @topic Comic sans ms 12
  19.   sline -l %chelpwin 4 | unset %win.x %win.y
  20.   chlpl startá
  21. }
  22. alias chlpl {
  23.   drawtext %chelpwin 4 arial 15 $center(615,170) Loading...
  24.   window -n @topic | .timer 1 1 window -r @topic | .timer 1 1 drawtext %chelpwin 0 comic 15 $center(615,170) Loading...
  25.   if ($1 == $null) { clear @topic | loadbuf -p @topic sysfiles\help\ $+ start.chf | halt }
  26.   else {
  27.     set %chlptf $read -s $+ $gettok($1,1,160) sysfiles\help\tfiles.mrc
  28.     if (%chlptf == $null || $gettok($1,1,160) == $null) { clear @topic | loadbuf -p @topic sysfiles\help\ $+ start.chf | halt }
  29.     clear @topic | loadbuf -p @topic sysfiles\help\ $+ %chlptf
  30.     sline @topic 11
  31.   }
  32. }
  33. menu @topic {
  34.   dclick window -n %chelpwin | window -r %chelpwin | window -n @topic | window -r @topic | chlpl $sline(%chelptop,1)
  35.   Close Help:chelpc
  36. }
  37. menu @C-ScriptáHelpáWindow {
  38.   mouse window -n @topic | window -r @topic
  39.   sclick window -n @topic | window -r @topic
  40.   dclick window -n @topic | window -r @topic | chlpl $sline(%chelpwin,1)
  41.   Open Topic:chlpl $sline(%chelpwin,1)
  42.   Close Help:chelpc
  43. }
  44. on 1:close:@topic,%chelpwin:chelpc
  45. alias chelpc {
  46.   window -c @topic
  47.   window -c %chelpwin
  48.   .timer 1 1 .unload -rs chelp.mrc
  49. }
  50.